Handle nil messages in repeat-echo-message.

* lisp/repeat.el (repeat-echo-message): Handle cases where
'current-message' is nil (bug#50176).

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 89488ddc98f8390e569f19588dbcea62586281b7..6c3ffec18fcebba8e9ffe7697b994d0589330611 100644 (file)
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -474,8 +474,9 @@ When Repeat mode is enabled, and the command symbol has the property named
         (if (current-message)
             (message "%s [%s]" (current-message) mess)
           (message mess)))
-    (when (string-search "Repeat with " (current-message))
-      (message nil))))
+    (and (current-message)
+         (string-search "Repeat with " (current-message))
+         (message nil))))
 
 (defvar repeat-echo-mode-line-string
   (propertize "[Repeating...] " 'face 'mode-line-emphasis)